home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Camelot / Camelot 098 (1990-12)(Swedish User Group of Amiga)(SE)(PD)[WB].zip / Camelot 098 (1990-12)(Swedish User Group of Amiga)(SE)(PD)[WB].adf / XLisp-Stat / Book / buffering.lsp < prev    next >
Text File  |  1990-10-11  |  630b  |  23 lines
  1. ; book pp.244-246
  2.  
  3. (setf w (send graph-window-proto :new))
  4.  
  5. (let ((width (send w :canvas-width))
  6.       (height (send w :canvas-height))
  7.       (mode (send w :draw-mode)))
  8.   (send w :draw-mode 'xor)
  9.   (dotimes (i (min width height))
  10.            (send w :draw-symbol 'disk t i i)
  11.            (send w :draw-symbol 'disk t i i))
  12.   (send w :draw-mode mode))
  13.  
  14. (pause 50)
  15.  
  16. (let ((width (send w :canvas-width))
  17.       (height (send w :canvas-height)))
  18.   (dotimes (i (min width height))
  19.            (send w :start-buffering)
  20.            (send w :erase-window)
  21.            (send w :draw-symbol 'disk t i i)
  22.            (send w :buffer-to-screen)))
  23.